home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
PDES.PRG
< prev
next >
Wrap
Text File
|
1996-01-08
|
9KB
|
216 lines
PROCEDURE pdes
PARAMETERS md
PRIVATE x
PRIVATE y
DECLARE ades[20]
IF md = 2
ades[1] = ".............."
ELSE
ades[1] = "..Any "
ENDIF
ades[2] = "A-Frame "
ades[3] = "Cape Cod "
ades[4] = "Classical "
ades[5] = "Colonial "
ades[6] = "Condominium "
ades[7] = "Contemporary "
ades[8] = "Double-wide "
ades[9] = "Dutch Roof "
ades[10] = "Empire "
ades[11] = "Gothic "
ades[12] = "Italian "
ades[13] = "Ranch "
ades[14] = "Spanish "
ades[15] = "Split Level "
ades[16] = "Townhouse "
ades[17] = "Traditional "
ades[18] = "Trailer "
ades[19] = "Tudor "
ades[20] = "Victorian "
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "Up/Dn Arrow "
@ 22,5 SAY "<Enter> "
@ 23,5 SAY "?"
SET COLOR TO W+/R
@ 21,17 SAY "= Move within pick list"
@ 22,13 SAY "= Select from pick list"
@ 23,7 SAY "Help"
SET COLOR TO BG/BG
@ 3,52 CLEAR TO 19,68
SET COLOR TO N/BG
@ 3,52 TO 19,68
x = 1
y = 4
DO WHILE x <= 20 .AND. y <= 18
@ y,53 SAY ades[x]
x = x + 1
y = y + 1
ENDDO
SET COLOR TO GR+/BG
@ 4,53 SAY ades[1]
x = 1
y = 4
SET FORMAT TO fscr NOCLEAR
SET COLOR TO N/N
@ 2,0 GET charin
DO WHILE .T.
READ
DO CASE
CASE LastKey() = 5 && <Up Arrow>
IF x = 1
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 4
x = x - 1
DO WHILE y <= 18
@ y,53 SAY ades[x]
x = x + 1
y = y + 1
ENDDO
x = x - 15
y = 4
ELSE
@ y,53 SAY ades[x]
x = x - 1
y = y - 1
ENDIF
SET COLOR TO GR+/BG
@ y,53 SAY ades[x]
LOOP
CASE LastKey() = 13 && <Enter>
IF md = 2 .AND. x = 1
LOOP
ENDIF
REPLACE design WITH ades[x]
EXIT
CASE LastKey() = 24 && <Dn Arrow>
IF x = 20
LOOP
ENDIF
SET COLOR TO N/BG
IF y = 18
x = (x - 15) + 2
y = 4
DO WHILE x < 20 .AND. y < 18
@ y,53 SAY ades[x]
x = x + 1
y = y + 1
ENDDO
ELSE
@ y,53 SAY ades[x]
x = x + 1
y = y + 1
ENDIF
SET COLOR TO GR+/BG
@ y,53 SAY ades[x]
LOOP
CASE LastKey() = 27 && <Esc>
IF md = 2
DO BoxB WITH 4,20,6,46
@ 5,22 SAY "You must pick a design."
key = InKey(4)
DO cls WITH 4,20,6,46
LOOP
ENDIF
EXIT
CASE LastKey() = 63 && `?': Help
IF x = 1 .OR. x = 6 .OR. x = 8 .OR. x = 16 .OR. x = 18
LOOP
ENDIF
SET COLOR TO B/B
@ 20,5 CLEAR TO 22,75
SET COLOR TO W+/B
DO CASE
CASE x = 2
@ 20,6 SAY "A-Frame RARE, 1940 - Present"
@ 21,6 SAY "A steep A-shaped roof forms the side walls of the home, framing a"
@ 22,6 SAY "small 2nd story."
CASE x = 3
@ 20,6 SAY "Cape Cod 1700 - Present"
@ 21,6 SAY "Steep roof with peaks at the side, the 2nd story is formed by the"
@ 22,6 SAY "roof, making it smaller than lower story. Often with dormer windows."
CASE x = 4
@ 20,6 SAY "Classical RARE, originally 1770 - 1860"
@ 21,6 SAY "Large round front porch columns with square bases. The peak of the"
@ 22,6 SAY "porch roof faces front and forms a triangle above the columns."
CASE x = 5
@ 20,6 SAY "Colonial originally 1700 - 1820"
@ 21,6 SAY "Usually 2-story; with roof peaks at the side or hipped, evenly spaced"
@ 22,6 SAY "identical windows and a (usually) centered, classical doorway."
CASE x = 7
@ 20,6 SAY "Contemporary 1940 - Present"
@ 21,6 SAY "Various styles usually having varied roof lines and/or a modular look"
@ 22,6 SAY "and larger windows, including picture windows."
CASE x = 9
@ 20,6 SAY "Dutch Roof RARE, originally 1750 - 1840"
@ 21,6 SAY "The top story is formed by a side-peaked gambrel roof, hipped like"
@ 22,6 SAY "a barn roof. Often with dormer windows and/or flared eaves"
CASE x = 10
@ 20,6 SAY "Empire RARE, originally 1855 - 1885"
@ 21,6 SAY "A Mansard Roof is the most distinguishing feature - a steep rise up"
@ 22,6 SAY "to a flat top, usually with dormer windows, often on all sides."
CASE x = 11
@ 20,6 SAY "Gothic RARE, originally 1840 - 1880"
@ 21,6 SAY "Walls rise with no break to a high-peaked front-facing roof, usually"
@ 22,6 SAY "with highly decorative eaves, sometimes with cathedral-style windows."
CASE x = 12
@ 20,6 SAY "Italian RARE, originally 1840 - 1885"
@ 21,6 SAY "Arched, not peaked, windows and a low pitched or flat roof, are the"
@ 22,6 SAY "main features. Usually 2-story, often with narrow grouped windows"
CASE x = 13
@ 20,6 SAY "Ranch 1935 - Present"
@ 21,6 SAY "Single story with a moderately-pitched roof. The main roof line runs"
@ 22,6 SAY "side-to-side, but there may be wings creating L or U shapes."
CASE x = 14
@ 20,6 SAY "Spanish most 1890 - 1950"
@ 21,6 SAY "Walls usually stucco, roof often red tile, with thick, square porch"
@ 22,6 SAY "supports, often with arched entryways."
CASE x = 15
@ 20,6 SAY "Split Level 1955 - Present"
@ 21,6 SAY "Essentially a single-level and a 2-story house combined so that none"
@ 22,6 SAY "of the three levels are at the same elevation."
CASE x = 17
@ 20,6 SAY "Traditional usually 1900 - 1950"
@ 21,6 SAY "Usually square or nearly square, minimal decoration, tin roofs are"
@ 22,6 SAY "common, porch supports are thick and square or of decorative steel."
CASE x = 19
@ 20,6 SAY "Tudor 1910 - Present"
@ 21,6 SAY "At least one predominant peak is front-facing, usually with exposed"
@ 22,6 SAY "beams on walls, sometimes with an overhanging second story"
CASE x = 20
@ 20,6 SAY "Victorian 1860 - 1910"
@ 21,6 SAY "Nearly all with elaborate porches, some with porch gazebos and round"
@ 22,6 SAY "towers, tin roofs are common, as are multi-level roof designs."
ENDCASE
key = InKey(18)
DO cls WITH 20,0,20,79
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "Up/Dn Arrow "
@ 22,5 SAY "<Enter> "
SET COLOR TO W+/R
@ 21,17 SAY "= Move within pick list"
@ 22,13 SAY "= Select from pick list"
LOOP
OTHERWISE
LOOP
ENDCASE
ENDDO
RELEASE ades
DO cls WITH 3,52,19,68
RETURN